Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/nhx/seltopic.frm

Text File | 1995-05-08 | 2KB | 66 lines

VERSION 2.00
Begin Form SelTopic
   Caption         =   "Select Topic"
   ClientHeight    =   3480
   ClientLeft      =   2655
   ClientTop       =   2160
   ClientWidth     =   3270
   Height          =   3885
   Icon            =   SELTOPIC.FRX:0000
   Left            =   2595
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   3480
   ScaleWidth      =   3270
   Top             =   1815
   Width           =   3390
   Begin CommandButton Command1
      Caption         =   "OK"
      Height          =   375
      Left            =   1560
      TabIndex        =   1
      Top             =   3000
      Width           =   1575
   End
   Begin CommandButton Command2
      Caption         =   "cancel"
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   3000
      Width           =   1335
   End
   Begin ListBox List1
      Height          =   2760
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3015
   End
End
Sub Command1_Click ()
    DoSelTopic
End Sub


Sub Command2_Click ()
Unload seltopic
End Sub

Sub DoSelTopic ()
    linkedit.text1.text = "[" + list1.text + "]"
    Unload seltopic
End Sub

Sub Form_Load ()
    For i% = 0 To TopicCount%
        a$ = MainForm.TextTopic(i%).tag
        list1.AddItem a$
        Next i%
End Sub

Sub List1_DblClick ()
    DoSelTopic
End Sub